﻿Public Class MidiFileFormatException
    Inherits Exception

    Public Property Position As Long
    Public Property Description As String

    Public Sub New(_Position As Long, _Description As String)
        MyBase.New(_Description)
        Position = _Position
        Description = _Description
    End Sub

    Public Overrides Function ToString() As String
        Return "Position " & Position.ToString & ": " & Description & vbCrLf & MyBase.ToString()
    End Function

End Class
